home *** CD-ROM | disk | FTP | other *** search
/ Amiga Developer CD 2.1 / Amiga Developer CD v2.1.iso / CD32 / CD32-Tools / fms-1 / s / isomount < prev   
Encoding:
AmigaDOS Script File  |  1993-07-20  |  2.2 KB  |  54 lines

  1. .key isofilename/a,unitnum/k
  2. .def unitnum "2"
  3. .bra {
  4. .ket }
  5.  
  6. ; Creates CD-ROM file system entry for Dillon's fmsdisk.device
  7. ; Modified fmsdisk.device 1.1 (CAS 7/93) will look for
  8. ; ENV:FMSUnit<n> where n is digit of the unit and will read the
  9. ; ENV variable for the full path to the disk image file.
  10. ; If ENV variable is not found, falls back to old method:
  11. ; ISO image must be named Unitn where n is digit of the Unit below
  12. ; (for example Unit2) and the ISO image file must reside at FMS:
  13. ; (an asignment)
  14. ;
  15. ; This file enables the CD-ROM file system which allows you to read standard
  16. ; ISO-9660 CD-ROM disks from an Amiga with a SCSI controller.
  17. ;
  18. ; The "Unit" line defines the SCSI address of the CD-ROM drive. Drives
  19. ; often come configured as unit 2, which is the default. Check the
  20. ; documentation for your CD-ROM drive to find the exact SCSI address.
  21. ; Note that most drives let you change this number using jumpers.
  22.  
  23. if not exists {isofilename}
  24.    echo "isomount: File *"{isofilename}*" not found... Aborting"
  25.    quit
  26. endif
  27.  
  28. echo  >t:isomountlist{unitnum} "ISO{unitnum}:"
  29. echo >>t:isomountlist{unitnum} "FileSystem    = L:CDFileSystem"
  30. echo >>t:isomountlist{unitnum} "Device        = fmsdisk.device"
  31. echo >>t:isomountlist{unitnum} "Unit        = {unitnum}"
  32. echo >>t:isomountlist{unitnum} "Flags        = 0"
  33. echo >>t:isomountlist{unitnum} "Surfaces    = 1"
  34. echo >>t:isomountlist{unitnum} "SectorsPerTrack    = 1"
  35. echo >>t:isomountlist{unitnum} "SectorSize    = 2048"
  36. echo >>t:isomountlist{unitnum} "Mask        = 0x7ffffffe"
  37. echo >>t:isomountlist{unitnum} "MaxTransfer    = 0x100000"
  38. echo >>t:isomountlist{unitnum} "Reserved    = 0"
  39. echo >>t:isomountlist{unitnum} "Interleave    = 0"
  40. echo >>t:isomountlist{unitnum} "LowCyl        = 0"
  41. echo >>t:isomountlist{unitnum} "HighCyl        = 0"
  42. echo >>t:isomountlist{unitnum} "Buffers        = 5"
  43. echo >>t:isomountlist{unitnum} "BufMemType    = 0"
  44. echo >>t:isomountlist{unitnum} "StackSize    = 1000"
  45. echo >>t:isomountlist{unitnum} "Priority    = 10"
  46. echo >>t:isomountlist{unitnum} "GlobVec        = -1"
  47. echo >>t:isomountlist{unitnum} "DosType        = 0x43443031"
  48. echo >>t:isomountlist{unitnum} "Mount        = 1"
  49. echo >>t:isomountlist{unitnum} "#"
  50.  
  51. setenv FMSUnit{unitnum} "`which {isofilename} NORES`"
  52. echo "Mounting `getenv FMSUnit{unitnum}` as ISO{unitnum}:"
  53. mount ISO{unitnum}: from t:isomountlist{unitnum}
  54.